SuperHack/SuperHack CD.bin/CODING/DELPHI/SQLBUILD.ZIP/SQL14_D2.ZIP/SQLBLD05.DFM/SQLBLD05.txt

Text File | 1996-09-24 | 6.5 KB | 293 lines

object frmJoinEditor: TfrmJoinEditor
  Left = 243
  Top = 117
  HelpContext = 2018
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Join Editor'
  ClientHeight = 301
  ClientWidth = 349
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object pnlCustom: TPanel
    Left = 0
    Top = 0
    Width = 349
    Height = 264
    Align = alClient
    TabOrder = 2
    object Bevel1: TBevel
      Left = 1
      Top = 40
      Width = 382
      Height = 235
      Shape = bsTopLine
    end
    object lblJoinOnClause: TLabel
      Left = 15
      Top = 191
      Width = 71
      Height = 15
      Caption = '&Join On clause'
    end
    object lblOuterJoinType: TLabel
      Left = 114
      Top = 160
      Width = 84
      Height = 14
      Caption = '&Type of outer join'
      Transparent = True
    end
    object Label3: TLabel
      Left = 61
      Top = 58
      Width = 222
      Height = 14
      Caption = 'Set the join criteria for these two tables '
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblTypeOfJoinCustom: TLabel
      Left = 16
      Top = 79
      Width = 56
      Height = 14
      Caption = '&Type of join'
      FocusControl = cbTable1JoinCol
    end
    object label1: TLabel
      Left = 103
      Top = 11
      Width = 138
      Height = 19
      Caption = 'Customized Joins'
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object rbInnerJoin: TRadioButton
      Left = 15
      Top = 131
      Width = 79
      Height = 17
      Caption = '&Inner Join'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rbStraightJoinClick
    end
    object rbOuterJoin: TRadioButton
      Left = 15
      Top = 159
      Width = 83
      Height = 17
      Caption = '&Outer Join'
      TabOrder = 1
      OnClick = rbStraightJoinClick
    end
    object cboxOuterSubType: TComboBox
      Left = 200
      Top = 156
      Width = 129
      Height = 22
      Style = csDropDownList
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      Items.Strings = (
        'Left'
        'Right'
        'Full')
      ParentFont = False
      TabOrder = 2
    end
    object EditJoinCriteria: TBtnEdit
      Left = 15
      Top = 206
      Width = 314
      Height = 23
      Glyph.Data = {
        DE000000424DDE00000000000000360000002800000009000000060000000100
        180000000000A800000000000000000000000000000000000000007F7F007F7F
        007F7F007F7F007F7F007F7F007F7F007F7F007F7F33007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F007F7F37000000000000007F7F0000000000
        00007F7F000000000000007F7F39000000000000007F7F000000000000007F7F
        000000000000007F7F3A007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F007F7F3C007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
        7F32}
      TabOrder = 3
      OnBtnClick = EditJoinCriteriaBtnClick
    end
    object btnSimple: TButton
      Left = 255
      Top = 235
      Width = 75
      Height = 25
      Hint = 'Show simple join panel'
      Caption = '&Simple'
      TabOrder = 4
      OnClick = btnCustomClick
    end
  end
  object pnlSimple: TPanel
    Left = 0
    Top = 0
    Width = 349
    Height = 264
    Align = alClient
    TabOrder = 1
    object Label2: TLabel
      Left = 25
      Top = 14
      Width = 299
      Height = 16
      Caption = 'Choose the way these two tables will be joined'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object lblTable1: TLabel
      Left = 16
      Top = 90
      Width = 103
      Height = 14
      Caption = '&First table join column'
      FocusControl = cbTable1JoinCol
    end
    object lblJoinMethod: TLabel
      Left = 16
      Top = 138
      Width = 123
      Height = 14
      Caption = '&Expression to use for join'
      FocusControl = cbJoinExpression
    end
    object lblTable2: TLabel
      Left = 16
      Top = 186
      Width = 119
      Height = 14
      Caption = '&Second table join column'
      FocusControl = cbTable2JoinCol
    end
    object lblTypeOfJoinSimple: TLabel
      Left = 16
      Top = 44
      Width = 56
      Height = 14
      Caption = '&Type of join'
      FocusControl = cbTable1JoinCol
    end
    object cbTable1JoinCol: TComboBox
      Left = 10
      Top = 105
      Width = 327
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 1
      OnChange = cbTable1JoinColChange
    end
    object cbJoinExpression: TComboBox
      Left = 10
      Top = 154
      Width = 327
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      Items.Strings = (
        'Is equal to'
        'Is NOT equal to'
        'Is greater than'
        'Is greater than or equal to'
        'Is less than'
        'Is less than or equal to')
      TabOrder = 2
    end
    object cbTable2JoinCol: TComboBox
      Left = 10
      Top = 202
      Width = 327
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 3
      OnChange = cbTable1JoinColChange
    end
    object cbTypeOfJoin: TComboBox
      Left = 10
      Top = 61
      Width = 327
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      Items.Strings = (
        'One to Many'
        'Many to One')
      TabOrder = 0
      OnChange = cbTypeOfJoinChange
    end
    object btnCustom: TButton
      Left = 262
      Top = 233
      Width = 75
      Height = 25
      Hint = 'Show custom join panel'
      Caption = '&Custom'
      TabOrder = 4
      OnClick = btnCustomClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 264
    Width = 349
    Height = 37
    Align = alBottom
    TabOrder = 0
    object btnOk: TBitBtn
      Left = 16
      Top = 4
      Width = 101
      Height = 29
      TabOrder = 0
      OnClick = btnOkClick
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 122
      Top = 4
      Width = 101
      Height = 29
      TabOrder = 1
      Kind = bkCancel
    end
    object BitBtn3: TBitBtn
      Left = 228
      Top = 4
      Width = 101
      Height = 29
      TabOrder = 2
      Kind = bkHelp
    end
  end
end